home *** CD-ROM | disk | FTP | other *** search
/ Aminet 5 / Aminet 5 - March 1995.iso / Aminet / text / hyper / ManualBrows1_1.lha / SAS_Sprintf.a < prev    next >
Text File  |  1994-08-06  |  403b  |  28 lines
  1. AbsExecBase    EQU $00000004
  2.  
  3. RawDoFmt    EQU -$20a
  4.  
  5.     SECTION text,code
  6.  
  7.     XDEF _Sprintf
  8.  
  9. *************************************************
  10.  
  11. _Sprintf:
  12.     movem.l a2/a3/a6,-(SP)
  13.     move.l 16(SP),a3
  14.     move.l 20(SP),a0
  15.     lea 24(SP),a1
  16.     lea PutChProc(PC),a2
  17.     move.l AbsExecBase.w,a6
  18.     jsr RawDoFmt(a6)
  19.     movem.l (SP)+,a2/a3/a6
  20.     rts
  21. PutChProc:
  22.     move.b d0,(a3)+
  23.     rts
  24.  
  25. *************************************************
  26.  
  27.     END
  28.